home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / wb / MagicA2024_1_1.lha / MagicA2024 / MagicA2024-Install < prev    next >
Text File  |  1994-11-15  |  3KB  |  139 lines
  1. ; $VER: Magic2024-Install 1.1 (15.11.94)
  2. ; Install script for MagicA2024 (c) by kMel, Klaus Melchior
  3.  
  4. (set app_name "MagicA2024")
  5. (set version "1.1")
  6. (set vers_name (cat app_name " v" version))
  7.  
  8. (set msg_bad_kick (cat "You must even be using Kickstart 2.04 to run " vers_name ".") )
  9. (set msg_info (cat
  10.     "\n" vers_name " installation script.\n\n"
  11.     "This script installs " app_name " to a place, where utilities can be found (e.g. bin:).\n\n"
  12.     "The user startup should be supplemented to start " app_name " automatically.\n\n"
  13.     app_name " © 1994 kmel, Klaus Melchior\n"
  14.     "All rights reserved."
  15.     )
  16. )
  17. (set msg_exit (cat
  18.     "Have fun with MagicWB icons and your A2024 using " app_name "\n\n"
  19.     "And don't forget: It's Giftware!"
  20.     )
  21. )
  22.  
  23. ; -------------------------------------------------------------------------
  24.  
  25. (transcript (cat "Installing " vers_name " ..."))
  26.  
  27. (if    (< (/ (getversion) 65536) 37)
  28. (
  29.     (abort (cat msg_info "\n\n\n" msg_bad_kick) )
  30. )
  31. )
  32.  
  33. ; -------------------------------------------------------------------------
  34. (complete 0)
  35.  
  36. (message msg_info)
  37.  
  38. ; -------------------------------------------------------------------------
  39. (complete 20)
  40.  
  41. (set destination
  42.     (askdir
  43.         (prompt (cat "Please select a place for " vers_name ) )
  44.         (help @askdir-help)
  45.         (default "bin:")
  46.     )
  47. )
  48.  
  49. (copylib
  50.      (prompt (cat "Copying " vers_name) )
  51.      (confirm)
  52.     (source app_name)
  53.     (dest destination)
  54.     (infos)
  55.     (help @copylib-help)
  56. )
  57.  
  58. ; -------------------------------------------------------------------------
  59. (complete 40)
  60.  
  61. (if    (NOT    (exists (tackon "Sys:WBStartup/" app_name)))
  62.  
  63.     (startup app_name
  64.         (command "run >nil: <nil: \"" (tackon destination app_name) "\"")
  65.         (prompt (cat "Now the " app_name " startup line will be included into your user-startup file. ") )
  66.         (help @startup-help)
  67.     )
  68.  
  69. )
  70.  
  71. ; -------------------------------------------------------------------------
  72. (complete 60)
  73.  
  74. (set choice
  75.     (askoptions
  76.         (prompt "Please choose which documentation to install")
  77.         (choices
  78.             (cat app_name "_engl.guide")
  79.             (cat app_name "_engl.doc")
  80.         )
  81.         (help @askoptions-help)
  82.     )
  83. )
  84.  
  85. ; -------------------------------------------------------------------------
  86. (complete 70)
  87.  
  88. (set file_names (cat app_name "_engl.guide") )
  89.  
  90. (if (<> 0 (BITAND choice 1))
  91. (
  92.     (set destination
  93.         (askdir
  94.             (prompt (cat "Please select a place for the " file_names) )
  95.             (help @askdir-help)
  96.             (default "guide:")
  97.         )
  98.     )
  99.  
  100.     (copyfiles
  101.          (prompt (cat "Copying " file_names) )
  102.         (source file_names)
  103.         (dest destination)
  104.         (infos)
  105.         (help @copyfiles-help)
  106.     )
  107. )
  108. )
  109.  
  110. ; -------------------------------------------------------------------------
  111. (complete 80)
  112.  
  113. (set file_names (cat app_name "_engl.doc") )
  114.  
  115. (if (<> 0 (BITAND choice 2))
  116. (
  117.     (set destination
  118.         (askdir
  119.             (prompt (cat "Please select a place for the " file_names) )
  120.             (help @askdir-help)
  121.             (default "Docs:")
  122.         )
  123.     )
  124.  
  125.     (copyfiles
  126.          (prompt (cat "Copying " file_names) )
  127.         (source file_names)
  128.         (infos)
  129.         (dest destination)
  130.         (help @copyfiles-help)
  131.     )
  132. )
  133. )
  134.  
  135. ; -------------------------------------------------------------------------
  136. (complete 100)
  137.  
  138. (exit msg_exit)
  139.